home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / installer / Create-Make-Disks < prev    next >
Text File  |  1994-04-16  |  7KB  |  208 lines
  1. /* */
  2. total = 5
  3. disk  = 1
  4.  
  5. CALL Setup
  6. total = total + Makedir('l'                      disk)
  7. total = total + Makedir('bin'                    disk)
  8. total = total + Makedir('config'                 disk)
  9. total = total + Makedir('rexx'                   disk)
  10. total = total + Makedir('s'                      disk)
  11. total = total + Makedir('libs'                   disk)
  12. say ''
  13. total = total + Copy('Install-DICE'                           '.'   disk)
  14. total = total + Copy('Install-DICE.info'                      '.'   disk)
  15. total = total + Copy('Install-Floppy'                         '.'   disk)
  16. total = total + Copy('Install-Floppy.info'                    '.'   disk)
  17. total = total + Copy('Install-Freeware'                       '.'   disk)
  18. total = total + Copy('Install-Freeware.info'                  '.'   disk)
  19. total = total + Copy('Installer'                              '.'   disk)
  20. say ''
  21. total = total + Copy('dcc.master:bin/lhex'                    'bin' disk)
  22. total = total + Copy('dcc.master:bin/more'                    'bin' disk)
  23. total = total + Copy('dcc.master:l/fsovl-handler'             'l'   disk)
  24. total = total + Copy('dcc.master:About_Dice'                  '.'   disk)
  25. total = total + Copy('dcc.master:About_Dice.info'             '.'   disk)
  26. total = total + Copy('dcc.master:Copyright_Information'       '.'   disk)
  27. total = total + Copy('dcc.master:Copyright_Information.info'  '.'   disk)
  28. total = total + Copy('dcc.master:Release_Notes'               '.'   disk)
  29. total = total + Copy('dcc.master:Release_Notes.info'          '.'   disk)
  30. total = total + Copy('dcc.master:Known_Buglist'               '.'   disk)
  31. total = total + Copy('dcc.master:Known_Buglist.info'          '.'   disk)
  32. say ''
  33.  
  34. total = total + Handle('ar:include_13.lha'       disk)
  35. total = total + Handle('ar:include_20.lha'       disk)
  36. total = total + Handle('ar:extended_tools.lha'   disk)
  37. CALL NextDisk
  38.  
  39. total = total + Handle('ar:include_common.lha'   disk)
  40. total = total + Handle('ar:dice_linklibs.lha'    disk)
  41. total = total + Handle('ar:include_30.lha'       disk)
  42. CALL NextDisk
  43.  
  44. total = total + Handle('ar:online_help2.lha'     disk)
  45. total = total + Handle('ar:library_source.lha'   disk)
  46. total = total + Handle('ar:source_control.lha'   disk)
  47. total = total + Handle('ar:rom_tools.lha'        disk)
  48. total = total + Handle('ar:amiga12_linklibs.lha' disk)
  49. CALL NextDisk
  50.  
  51. total = total + Handle('ar:miscellaneous.lha'    disk)
  52. total = total + Handle('ar:debugger.lha'         disk)
  53. total = total + Handle('ar:mmu_tools.lha'        disk)
  54. total = total + Handle('ar:example_source.lha'   disk)
  55. total = total + Handle('ar:amiga30_linklibs.lha' disk)
  56. CALL NextDisk
  57.  
  58. total = total + Handle('ar:online_help1.lha'     disk)
  59. total = total + Handle('ar:basic_tools.lha'      disk)
  60. total = total + Handle('ar:freeware.lha'         disk)
  61. total = total + Handle('ar:dice_startup.lha'     disk)
  62. total = total + Handle('ar:ttx_config.lha'       disk)
  63. total = total + Handle('ar:dme_config.lha'       disk)
  64. total = total + Handle('ar:ced_config.lha'       disk)
  65. total = total + Handle('ar:ame_config.lha'       disk)
  66. CALL NextDisk
  67. CALL Cleanup
  68.  
  69. EXIT
  70.  
  71. Makedir: Procedure
  72.    PARSE ARG dir disk
  73.    disk = strip(disk)
  74.    SAY 'makedir                         rd'disk':'dir
  75.    RETURN 1
  76.  
  77. Copy: Procedure
  78.    PARSE ARG name dir disk
  79.    IF dir = '.' THEN dir = ''
  80.    disk = strip(disk)
  81.    st     = STATEF(name)
  82.    size   = WORD(st, 2)
  83.    blocks = WORD(st, 3)
  84.    res    = CalcBlocks(size)
  85.    SAY 'copy   ' left(name,38) 'rd'disk':'left(dir,4)'com ;'LEFT(blocks,4) '==' LEFT(res,4)
  86.    RETURN res
  87.  
  88. Handle: PROCEDURE
  89.    PARSE ARG name disk
  90.    st     = STATEF(name)
  91.    size   = WORD(st, 2)
  92.    blocks = WORD(st, 3)
  93.    res    = CalcBlocks(size)
  94.    CALL Report(name disk blocks res)
  95.    RETURN res
  96.  
  97. CalcBlocks: PROCEDURE
  98.    ARG SIZE
  99.    blocks = trunc((size + 487)/488)
  100.    res =  blocks+trunc((blocks+71)/72)
  101.    RETURN res
  102.  
  103. Report: PROCEDURE
  104.    PARSE ARG NAME DISK BLK RES
  105.    SAY 'copy   ' LEFT(name,30) 'rd'disk':    ;'LEFT(blk,4) '==' LEFT(res,4)
  106.    RETURN
  107.  
  108. NextDisk: PROCEDURE EXPOSE total disk
  109.    room = TRUNC((total + 5)*100/1758)
  110.    SAY ';;;TOTAL SIZE=.........................................'total '--' room'%'
  111.    SAY 'INFO RD'disk':'
  112.    SAY ''
  113.    IF total > 1757 THEN
  114.       DO
  115.          SAY '"***Disk' disk 'will not fit'
  116.       END
  117.    disk = disk + 1
  118.    total = 5
  119.    IF disk <= 5 THEN
  120.       DO
  121.          SAY ';'
  122.          SAY ';       Disk' disk
  123.          SAY ';'
  124.       END
  125.    RETURN
  126.  
  127. Cleanup: PROCEDURE
  128.    SAY ';'
  129.    SAY ';       Cleanup.  Fix protections, etc.'
  130.    SAY ';'
  131.    SAY 'protect rd1:#? r all quiet'
  132.    SAY 'setdate rd1:#? 01-jan-94 12:00 all'
  133.    SAY ''
  134.    SAY 'protect rd2:#? r all quiet'
  135.    SAY 'setdate rd2:#? 01-jan-94 12:00 all'
  136.    SAY ''
  137.    SAY 'protect rd3:#? r all quiet'
  138.    SAY 'setdate rd3:#? 01-jan-94 12:00 all'
  139.    SAY ''
  140.    SAY 'protect rd4:#? r all quiet'
  141.    SAY 'setdate rd4:#? 01-jan-94 12:00 all'
  142.    SAY ''
  143.    SAY 'protect rd5:#? r all quiet'
  144.    SAY 'setdate rd5:#? 01-jan-94 12:00 all'
  145.    SAY ''
  146.    SAY 'protect rd1:bin/#? re all quiet'
  147.    SAY 'protect rd1:l/#?   re all quiet'
  148.    SAY 'protect rd1:Install-DICE r'
  149.    SAY 'protect rd1:Installer re'
  150.    SAY ''
  151.    SAY 'set echo off'
  152.    SAY ''
  153.    RETURN
  154.  
  155. Setup: PROCEDURE
  156.    dt = '('translate(date(e),'.','/')')' time()
  157.  
  158.    SAY ';;;'
  159.    SAY ';;; $ver: Make-DISKS 1.6' dt
  160.    SAY ';;;'
  161.    SAY ';       Distribute prepared archives among virtual disks'
  162.    SAY ';'
  163.    SAY ';       Intermediate:   ar:m'
  164.    SAY ';       Dest:           RD0:, RD1:, RD2:, RD3:, RD4:'
  165.    SAY ';'
  166.    SAY ''
  167.    SAY ''
  168.    SAY ';'
  169.    SAY ';       Prepare RAM floppy images, using the floppy emulator.'
  170.    SAY ';'
  171.    SAY 'set echo on'
  172.    SAY 'failat  21'
  173.    SAY 'mount   rd1: >nil:'
  174.    SAY 'mount   rd2: >nil:'
  175.    SAY 'mount   rd3: >nil:'
  176.    SAY 'mount   rd4: >nil:'
  177.    SAY 'mount   rd5: >nil:'
  178.    SAY ''
  179.    SAY 'format drive rd1: name "Disk1_V3.0" NOICONS <nil:'
  180.    SAY 'copy    Disk1.info              rd1:Disk.info    com'
  181.    SAY 'format drive rd2: name "Disk2_V3.0" NOICONS <nil:'
  182.    SAY 'copy    Disk2.info              rd2:Disk.info    com'
  183.    SAY 'format drive rd3: name "Disk3_V3.0" NOICONS <nil:'
  184.    SAY 'copy    Disk3.info              rd3:Disk.info    com'
  185.    SAY 'format drive rd4: name "Disk4_V3.0" NOICONS <nil:'
  186.    SAY 'copy    Disk4.info              rd4:Disk.info    com'
  187.    SAY 'format drive rd5: name "Disk5_V3.0" NOICONS <nil:'
  188.    SAY 'copy    Disk5.info              rd5:Disk.info    com'
  189.    SAY ''
  190.    SAY 'failat 1'
  191.    SAY 'relabel rd1: name "Disk1_V3.0"'
  192.    SAY 'diskchange RD1:'
  193.    SAY 'relabel rd2: name "Disk2_V3.0"'
  194.    SAY 'diskchange RD2:'
  195.    SAY 'relabel rd3: name "Disk3_V3.0"'
  196.    SAY 'diskchange RD3:'
  197.    SAY 'relabel rd4: name "Disk4_V3.0"'
  198.    SAY 'diskchange RD4:'
  199.    SAY 'relabel rd5: name "Disk5_V3.0"'
  200.    SAY 'diskchange RD5:'
  201.    SAY ''
  202.    SAY 'assign ar: Oi:Archives'
  203.    SAY ';'
  204.    SAY ';       Disk 1'
  205.    SAY ';'
  206.    SAY ''
  207.    RETURN
  208.